COMPLR.LAP[LSP,LSP] - www.SailDart.org

perm filename COMPLR.LAP[LSP,LSP] blob sn#202417 filedate 1976-02-18 generic text, type T, neo UTF8

(PROG (SEXPR IBASE) (SETQ IBASE (ADD1 7)) LOOP (SETQ SEXPR (ERRSET (READ))) (COND ((EQ SEXPR (QUOTE $EOF$)) (RET~
URN NIL))) (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP))) (PRINT (EVAL (CAR SEXPR))) (GO L~
OOP)) 

(BEGINBLOCK COMPILER) 

(BEGINBLOCK MACROS) 

(BEGINBLOCK PROPTABLE) 

(ENDBLOCK PROPTABLE) 

(ENDBLOCK MACROS) 

(BEGINBLOCK TOPLEVEL) 

(LAP ACTONEXPR SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSHJ P (SUBR ATOM)) 
	(JUMPN 1 TAG1) 
	(MOVEI 2 (QUOTE COMPEFFECT))